Top 10k strings from RTC Penzance (1986)(Dee Kay Systems).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /
Back to the directory listing
9 p$="signl ":
8 p$="occup ":
7 h$(of)=d$:
6 p$="clear ":
6 m$="occup ":
5 q$(pl,of+6
5 n$=" "+o$+" signal to ml":
5 m$="signl ":
4 p(pl)=p(pl)-6
4 p$="clear "
3 q$(pl,of+5
3 q$(pl)=i$:
3 n$=" "+o$+" signal to yard":
3 d(pl)>clok
3 )="08644":
2 y$="ECS P'dane.":
2 w$(sw)=o$:
2 p(pl)=p(pl)-9
2 n$=" "+o$+" signal to sw":
2 n$=" "+o$+" signal to pl":
2 n$=" "+o$+" signal to depot":
2 n$=" "+o$+" moving to pl":
2 n$=" "+o$+" moving to el":
2 n$=" "+o$+" moving to b"+
2 n$=" "+o$+" moving to P"+
2 n$=" "+o$+" moving to ECS loop":
2 m$="clear ":
2 e$=d$+e$(1
2 ds=ds+(clok-1161
2 d(vra)=clok+7
2 clok<ar+ad-6
2 ;"PENZANCE CONTROL"
2 +of)+" deptr."
2 )="MRAIL ":
1 z$=l$(ap+dp,7
1 y$=l$(ap+dp,
1 y$="stock "+z$+"dp"
1 y$="Motorail stk":
1 y$="ECS Longrock":
1 x$=q$(zz,10
1 x$=q$(pl,of
1 x$=q$(pl,13
1 x$=o$+"("+l$(x,7
1 x$=l$(x,14
1 x$="stabled for night "
1 x$="shunter required"
1 x$="service required ":
1 x$="reported defective ":
1 x$="receiving attention"
1 x$="no defects reported":
1 x$="fuel required
1 x$="being fuelled"+d$
1 x$="available "+d$
1 x$="Satisfactory"
1 x$="Rather poor"
1 x$="RUNNING "+x$
1 x$="ON TIME"
1 x$="Excellent"
1 x$="Disasterous"
1 x$="Competent"
1 x$="ClassA examination "
1 x$="Below average"
1 x$=" 08644 available"
1 x$=" 08644 at work "
1 vp=mp-lp+1
1 v$=q$(pl,of
1 t$,l,r$,z$:
1 s$(lst)=o$+"("+l$(x,9
1 s$(b)=d$+" "
1 s$(a)=l$(29
1 q$(zz,of+5
1 p(zz)=p(zz)-1
1 p(zz)=p(zz)+9
1 p(zz)=p(zz)+6
1 p(zz)=p(zz)+3
1 p(pl)=p(pl)-3
1 p(arv)=p(arv)+4
1 p$="08+MR ":
1 op=cp+lp+rp-1
1 o$="08644 "
1 n$=" "+o$+" signal to el":
1 n$=" "+o$+" signal to b"+
1 n$=" "+o$+" running round":
1 n$=" "+o$+" moving to ponsandane":
1 n$=" "+o$+" moving to depot":
1 n$=" "+o$+" moving to Ponsandane":
1 n$=" "+o$+" being summoned":
1 m$="signl "
1 m$="occup"
1 m$="clear "
1 lt=dt-clok+1
1 lt=clok+11
1 ldt=clok-(ldt*pj)
1 l$(ap+ep,7
1 l$(ap+dp,7
1 h$(of)=w$(sw-1
1 h$(of)=o$:
1 h$(of)=f$:
1 h$(of)=b$(fb2-1
1 h$(of)=a$(fb1-1
1 e$=o$+d$+d$:
1 e$=d$+e$(7
1 e$="stk "+v$+"dp."+"+08644":
1 e$="ECS signalled"
1 e$="08644+"+e$(7
1 ds=ds+(clok-dt)
1 d(vra)=d(vra)+18
1 d(vra)=clok:
1 clok>ar+ad-10
1 clok=clok+1
1 clok<lm+337
1 clok<d(pl)
1 c$=l$(a,18
1 b$(fb2)=h$(of):
1 ad=clok-ar+11
1 ad+" MIN EARLY"
1 ad)+" MIN LATE"
1 a=d(pl)-clok
1 a=clok-(a*18
1 a$(fb1)=h$(of):
1 Overnite mailZ
1 ECS P'dane.T
1 ECS P'dane.O
1 ;c4;c3;c2;c1
1 ;"have rated your performance as"
1 ;"as duty traffic controller."
1 ;"Train not ready for ";a;" min"
1 ;"SUMMER SATURDAY 0456 am"
1 ;"STATION AREA"
1 ;"SIGNALLED TO PLAT";arv;" ":
1 ;"Regional Control at Paddington"
1 ;"RUNNING FRM LONGROCK":
1 ;"Prepare to begin your shift"
1 ;"PONSANDANE YARD LONGROCK DEPOT"
1 ;"PENZANCE CONTOL SUMMER SATURDAY"
1 ;"NEXT ARRIVAL:Due";t$
1 ;"MARSHALLED SETS "
1 ;"LAIRA REQUIRE LOCO-URGENT":
1 ;"HELD AT LONGROCK SIG"
1 ;"FAILURE UP LINE-SEND LOCO":
1 ;"END OF SHIFT"
1 ;"DEPARTURES"
1 ;"Becomes:";y$
1 ;"Another Shift ?"
1 ;"APPROCHING LONGROCK":
1 ;" stock ";x$;" dep "
1 ;" ";s$(a+1
1 08644+stk 0740dp.q
1 /(clok-296
1 ,"py","el","pl"
1 ,"p1","p2","p3","p4","pl","rr","py"
1 ,"p1","p2","p3","p4","pl","ld","py","el","sw","ml","b1","b2"
1 ,"p1","p2","p3","p4","bh","ld","py"
1 ,"p1","p2","p3","p4"
1 ,"bh","p3","p4"
1 ,"bh","mr","ml"
1 ,"b1","b2","be","sw","pl","ld","py","bh","ml"
1 ,"Overnite mail","ez"
1 ,"Night Riviera","ez"
1 ,"Newspaper vns","ez"
1 ,"LONDON parcls","ez"
1 ,"76","BR","78","BR","79","BR","29","CF","96","CF","123","CF","86","BR","91","BR","159","BR","186","CF"
1 ,"500","502","OC","507","514","OC","556","560","CF","600","602","CF"
1 ,"41","55","WR"
1 ,"2357dp.exPADD","0932"
1 ,"2315dp.exLVPL","1035"
1 ,"2217dp.exMANC","1125"
1 ,"1915dp.exYORK","0646"
1 ,"1545dp.exPADD","ed"
1 ,"1445dp.exPADD","ep"
1 ,"1345dp.exPADD","ep"
1 ,"1330dp.exPADD","ep"
1 ,"1245dp.exPADD","ed"
1 ,"1210dp.exLVPL","2013"
1 ,"1145dp.exPADD","ed"
1 ,"1045dp.exPADD","1700"
1 ,"1026","GD","1052","GD","2406","GD","2451","CD","2459","BS","2534","BS","2421","GD","2435","CD","2474","BS","2522","GD","2104","IM","2537","BS","2588","CD","2273","HA","2599","BS","2608","CD","46","TO","57","TO"
1 ,"1","50","TO"
1 ,"1","20","LA","21","26","OC","27","29","LA","30","40","OC","41","50","LA"
1 ,"1","18","WR","28","40","WR"
1 ,"0940dp.exPADD","1615"
1 ,"0936dp.exLVPL","ep"
1 ,"0922dp.exNEWC","ep"
1 ,"0921dp.exLEED","ep"
1 ,"0914dp.exBRTN","ep"
1 ,"0845dp.exPADD","1448"
1 ,"0825dp.exPLYM","1105"
1 ,"0751dp.exBRIS","1415"
1 ,"0750dp.exSWAN","1540"
1 ,"0745dp.exPADD","1340"
1 ,"0717dp.exDRBY","1600"
1 ,"0630dp.exWORC","1235"
1 ,"0621dp.exWOLV","1520"
1 ," Plym parcels","ez"
1 ," Motorail trn","mr"
1 +of)=q$(zz,11
1 +of)=q$(zz,10
1 +of)=l$(x,
1 )=t$+"ar "+r$(8
1 )=r$+"+"+l$(l,
1 )=o$+"("+x$+" departure)":
1 )=l$(ap+ep,7
1 )=l$(ap+ep,
1 )=d$+" ":
1 )="ECS signld"
1 )="ECS signalled"
1 )="Arrival signalled"
1 )="08644+"
1 )="0"+l$(x,10
1 )="0"+l$(l,14
1 )="+0505 deptr.":
1 )=" stk "+j$(7
1 )=" M'rail stk."
1 )=" "+j$+"."
1 )+"+"+l$(l,
1 )+"+"+e$(7
1 )+")"+" - "+x$
1 )+"("+t$+"arr "+r$(8
1 )+"("+j$+") ":
1 )+"("+j$(7
1 )+" departure)"
1 "MOVE TO ";x$
1 "Locomotive number ? ";o$
1 "2045 Padd-s"
1 "2030 Padd-r"
1 "2013 Plym-H"
1 "1921 Padd-m"
1 "1815 Plym "
1 "1700 Padd-H"
1 "1615 Padd "
1 "1600 Drby "
1 "1540 Padd "
1 "1520 Wolv "
1 "1448 Padd-H"
1 "1436 Padd-r"
1 "1415 Wolv-r"
1 "1350 Bris-p"
1 "1340 Padd-H"
1 "1235 Padd-H"
1 "1125 Manc "
1 "1105 Padd "
1 "1050 Brtn "
1 "1035 Leed "
1 "1020 Padd-H"
1 "1000 Lvpl "
1 "0932 Padd "
1 "0910 Leed "
1 "0853 Newc "
1 "0835 Padd-H"
1 "0740 Glas "
1 "0725 Padd-H"
1 "0646 Newq-e"
1 "0628 Padd-H"
1 "0505 Plym "
1 MOVEMENT DIRECTIONS
1 08644 at work K